inherited dtmck_StuffStockSum: Tdtmck_StuffStockSum
  OldCreateOrder = True
  Left = 572
  Top = 263
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'Exec ck_rpt_StuffStockSum'#13#10'@DataType=:DataType,'#13#10'@BeginDate=:Beg' +
      'inDate,'#13#10'@EndDate=:EndDate,'#13#10'@DeptID=:DeptID,'#13#10'@StockID=:StockID' +
      ','#13#10'@StuffCode=:StuffCode'
    Parameters = <
      item
        Name = 'DataType'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'BeginDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 0d
      end
      item
        Name = 'EndDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = 0d
      end
      item
        Name = 'DeptID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = ''
      end
      item
        Name = 'StockID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = ''
      end
      item
        Name = 'StuffCode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = ''
      end>
    object adsMasterRuleChildID: TStringField
      DisplayLabel = #35268#21017'ID'
      FieldName = 'RuleChildID'
      ReadOnly = True
      Size = 50
    end
    object adsMasterStuffCode: TStringField
      DisplayLabel = #29289#26009#32534#30721
      FieldName = 'StuffCode'
      ReadOnly = True
      Size = 50
    end
    object adsMasterStuffName: TStringField
      DisplayLabel = #29289#26009#21517#31216
      FieldName = 'StuffName'
      Size = 100
    end
    object adsMasterSpecs: TStringField
      DisplayLabel = #22411#21495#35268#26684
      FieldName = 'Specs'
      Size = 1000
    end
    object adsMasterProcessName: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'ProcessName'
    end
    object adsMasterSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
      ReadOnly = True
    end
    object adsMasterSupplyCode: TStringField
      DisplayLabel = #20379#24212#21830#32534#30721
      FieldName = 'SupplyCode'
      ReadOnly = True
    end
    object adsMasterSupplyShortName: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'SupplyShortName'
      ReadOnly = True
      Size = 50
    end
    object adsMasterBeginPieceCount: TIntegerField
      DisplayLabel = #19978#26399#32467#23384'|'#20214#25968
      FieldName = 'BeginPieceCount'
    end
    object adsMasterBeginNumber: TFloatField
      DisplayLabel = #19978#26399#32467#23384'|'#25968#37327
      FieldName = 'BeginNumber'
      ReadOnly = True
    end
    object adsMasterBeginMoney: TFloatField
      DisplayLabel = #19978#26399#32467#23384'|'#37329#39069
      FieldName = 'BeginMoney'
      ReadOnly = True
    end
    object adsMasterInPieceCount: TIntegerField
      DisplayLabel = #26412#26399#25910#20837'|'#20214#25968
      FieldName = 'InPieceCount'
    end
    object adsMasterInNumber: TFloatField
      DisplayLabel = #26412#26399#25910#20837'|'#25968#37327
      FieldName = 'InNumber'
      ReadOnly = True
    end
    object adsMasterInMoney: TFloatField
      DisplayLabel = #26412#26399#25910#20837'|'#37329#39069
      FieldName = 'InMoney'
    end
    object adsMasterOutPieceCount: TIntegerField
      DisplayLabel = #26412#26399#21457#20986'|'#20214#25968
      FieldName = 'OutPieceCount'
    end
    object adsMasterOutNumber: TFloatField
      DisplayLabel = #26412#26399#21457#20986'|'#25968#37327
      FieldName = 'OutNumber'
      ReadOnly = True
    end
    object adsMasterOutMoney: TFloatField
      DisplayLabel = #26412#26399#21457#20986'|'#37329#39069
      FieldName = 'OutMoney'
    end
    object adsMasterTotalPieceCount: TIntegerField
      DisplayLabel = #26412#26399#32467#23384'|'#20214#25968
      FieldName = 'TotalPieceCount'
    end
    object adsMasterTotalNumber: TFloatField
      DisplayLabel = #26412#26399#32467#23384'|'#25968#37327
      FieldName = 'TotalNumber'
      ReadOnly = True
    end
    object adsMasterTotalMoney: TFloatField
      DisplayLabel = #26412#26399#32467#23384'|'#37329#39069
      FieldName = 'TotalMoney'
      ReadOnly = True
    end
    object adsMasterUnitID: TStringField
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
      Size = 10
    end
    object adsMasterUnitName: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitName'
      ReadOnly = True
      Size = 10
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 176
    Top = 104
  end
  object adsUserStock: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.StockID, b.StockCode, b.StockName from xt_StockSet a '#13#10 +
      'join da_Stock b on a.StockID=b.StockID'#13#10'where b.DeptID=:DeptID'#13#10 +
      ' and a.UserID=(select UserID from xt_Users where UserCode=:UserC' +
      'ode)'#13#10' and isnull(b.StockType,0)=:StockType and isnull(b.HasStop' +
      ',0)=0'
    Parameters = <
      item
        Name = 'DeptID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end
      item
        Name = 'StockType'
        Size = -1
        Value = Null
      end>
    Left = 176
    Top = 40
  end
  object adsStuffType: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'select * from V_da_StuffALLType2'#13#10'where ClassID=:ClassID'#13#10' order' +
      ' by RuleChildID'
    Parameters = <
      item
        Name = 'ClassID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 176
    Top = 168
  end
end
